home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / 132101bt.arc / BINK.BAT next >
DOS Batch File  |  1987-10-25  |  3KB  |  168 lines
  1. Set SchedTag=%1
  2.  
  3. C:
  4. CD \Opus
  5.  
  6. If z%1 == z Goto Top
  7.  
  8. Goto Sched_%1
  9.  
  10. :Top
  11. C:
  12. CD \Opus
  13. CD D:\
  14. CD E:\
  15.  
  16. BT Unattended
  17.  
  18. If ErrorLevel 201 Goto Top
  19. If ErrorLevel 200 Goto Mail_In
  20. If ErrorLevel 152 Goto Top
  21. If ErrorLevel 151 Goto Sched_I
  22. If ErrorLevel 150 Goto Sched_H
  23. If ErrorLevel 140 Goto Sched_G
  24. If ErrorLevel 134 Goto Sched_F
  25. If ErrorLevel 133 Goto Sched_E
  26. If ErrorLevel 131 Goto Sched_D
  27. If ErrorLevel 130 Goto Sched_C
  28. If ErrorLevel 120 Goto Sched_B
  29. If ErrorLevel 110 Goto Sched_A
  30. If ErrorLevel 101 Goto Off_Bottom
  31. If ErrorLevel 100 Goto F10_Key
  32. If Errorlevel  97 Goto Off_Bottom
  33. If Errorlevel  96 Goto BBS_9600
  34. If ErrorLevel  90 Goto Off_Bottom
  35. If ErrorLevel  80 Goto Off_Bottom
  36. If ErrorLevel  70 Goto Off_Bottom
  37. If ErrorLevel  60 Goto Off_Bottom
  38. If ErrorLevel  50 Goto Off_Bottom
  39. If ErrorLevel  40 Goto Off_Bottom
  40. If ErrorLevel  30 Goto Off_Bottom
  41. If Errorlevel  25 Goto Off_Bottom
  42. If Errorlevel  24 Goto BBS_2400
  43. If ErrorLevel  20 Goto Off_Bottom
  44. If Errorlevel  13 Goto Off_Bottom
  45. If Errorlevel  12 Goto BBS_1200
  46. If ErrorLevel  10 Goto Off_Bottom
  47. If Errorlevel   4 Goto Off_Bottom
  48. If Errorlevel   3 Goto BBS_300
  49.  
  50. Goto Off_Bottom
  51.  
  52. :F10_Key
  53. Goto Sched_%SchedTag%
  54.  
  55. :Mail_In
  56. C:
  57. CD \Opus
  58. C:\Command /C Justmail.Bat %SchedTag%
  59. Goto Top
  60.  
  61. :Sched_
  62. C:
  63. CD \Opus
  64. C:\Command /C Echomail.Bat Z
  65. Goto Top
  66.  
  67. :Sched_A
  68. Set SchedTag=A
  69. C:
  70. CD \Opus
  71. C:\Command /C Echomail.Bat A
  72. Goto Top
  73.  
  74. :Sched_B
  75. Set SchedTag=B
  76. C:
  77. CD \Opus
  78. C:\Command /C Echomail.Bat B
  79. Goto Top
  80.  
  81. :Sched_C
  82. Set SchedTag=C
  83. C:
  84. CD \Opus
  85. Del C:\Opus\Outbound\*.$*
  86. C:\Command /C Echomail.Bat C
  87. Goto Top
  88.  
  89. :Sched_D
  90. Set SchedTag=C
  91. C:
  92. CD \Opus
  93. Del C:\Opus\Outbound\*.$*
  94. C:\Command /C Echomail.Bat C
  95. Reboot
  96. Goto Top
  97.  
  98. :Sched_E
  99. Set SchedTag=F
  100. C:
  101. CD \Opus
  102. If Exist C:\fido\NEWMAIL\FNEWS*.ARC C:\Command /C NewNews.Bat
  103. If Exist C:\fido\NEWMAIL\NODELIST.A?? C:\Command /C NewList.Bat
  104. If Exist C:\fido\NEWMAIL\NODEDIFF.A?? C:\Command /C NewDiff.Bat
  105. C:\Command /C Filelist.Bat
  106. C:
  107. CD \Opus
  108. Del C:\Opus\Outbound\*.$*
  109. C:\Command /C Echomail.Bat E
  110. Goto Top
  111.  
  112. :Sched_F
  113. Set SchedTag=F
  114. C:
  115. CD \Opus
  116. Del C:\Opus\Outbound\*.$*
  117. C:\Command /C Echomail.Bat F
  118. Goto Top
  119.  
  120. :Sched_G
  121. Set SchedTag=G
  122. C:
  123. CD \Opus
  124. Del C:\Opus\Outbound\*.$*
  125. C:\Command /C Echomail.Bat G
  126. Goto Top
  127.  
  128. :Sched_H
  129. Set SchedTag=H
  130. C:
  131. CD \Opus
  132. Del C:\Opus\Outbound\*.$*
  133. C:\Command /C Echomail.Bat H
  134. Goto Top
  135.  
  136. :Sched_I
  137. Set SchedTag=H
  138. C:
  139. CD \Opus
  140. ML-Upd Send To 132/555
  141. Del C:\Opus\Outbound\*.$*
  142. C:\Command /C Echomail.Bat H
  143. Goto Top
  144.  
  145. :BBS_9600
  146. C:\Command /C SpawnBBS 9600
  147. Goto Top
  148.  
  149. :BBS_2400
  150. C:\Command /C SpawnBBS 2400
  151. Goto Top
  152.  
  153. :BBS_1200
  154. C:\Command /C SpawnBBS 1200
  155. Goto Top
  156.  
  157. :BBS_300
  158. C:\Command /C SpawnBBS 300
  159. Goto Top
  160.  
  161. :Off_Bottom
  162. C:
  163. CD \Opus
  164. Arcmail from 107/210
  165. ConfMail Import -N -K -A Pkxarc
  166. ConfMail Renum -R 2
  167. ReMapper 1014 -FI
  168.